home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 March - Disc 1 / Macworld (1999-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Packages / newDocument.tcl < prev    next >
Encoding:
Text File  |  1998-04-05  |  2.9 KB  |  82 lines  |  [TEXT/ALFA]
  1. ## -*-Tcl-*- (install)
  2.  # ###################################################################
  3.  #  Vince's Additions - an extension package for Alpha
  4.  # 
  5.  #  FILE: "newDocument.tcl"
  6.  #                                    created: 18/9/97 {4:47:39 pm} 
  7.  #                                last update: 03/22/1998 {22:44:05 PM} 
  8.  #  Author: Vince Darley
  9.  #  E-mail: <darley@fas.harvard.edu>
  10.  #    mail: Division of Engineering and Applied Sciences, Harvard University
  11.  #          Oxford Street, Cambridge MA 02138, USA
  12.  #     www: <http://www.fas.harvard.edu/~darley/>
  13.  #  
  14.  # Copyright (c) 1997-1998  Vince Darley, all rights reserved
  15.  # 
  16.  # See the file "license.terms" for information on usage and redistribution
  17.  # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  18.  # ###################################################################
  19.  ##
  20.  
  21. alpha::extension newDocument 0.1.2 {
  22.     namespace eval newDocument {}
  23.     set newDocument::handlers(Alpha) new
  24.     # use this binding to open a new template document
  25.     newPref binding newDocument "/N<O" newDocument "" file::newDocument
  26.     # handler of new documents
  27.     newPref var newDocumentHandler "Alpha" newDocument "" newDocument::handlers array
  28.     # open untitled windows directly without asking for templates etc.
  29.     newPref flag untitledDocsAreEmpty 1 newDocument
  30.     # prompt for the name of new documents
  31.     newPref flag newDocNamePrompt 1 newDocument
  32.     package::addPrefsDialog newDocument
  33. } uninstall {this-file} maintainer {
  34.     "Vince Darley" darley@fas.harvard.edu <http://www.fas.harvard.edu/~darley/>
  35. } help {
  36.     A nicer way to make new documents
  37. }
  38.  
  39. ensureset {newDocTypes(New Email Message)} mailNewMsg
  40. ensureset {newDocTypes(New Ftp Connection)} ftpPromptBrowse
  41. ensureset {newDocTypes(New File-set)} newFileset
  42. ensureset {newDocTypes(New Web Browser)} wwwParseFile
  43.  
  44. proc file::newDocument {args} {
  45.     global newDocTypes newDocumentmodeVars newDocument::handlers
  46.     if {$args == "" && $newDocumentmodeVars(newDocNamePrompt)} {
  47.     set args [eval [list prompt "Please enter a name for the new document window…" \
  48.       "Untitled" "Or open:"] \
  49.       [lsort -ignore [array names newDocTypes]] "\(-" "Untitled"]
  50.     if [info exists newDocTypes($args)] {
  51.         $newDocTypes($args)
  52.         return ""
  53.     }
  54.     if {$args == "Untitled"} {
  55.         if $newDocumentmodeVars(untitledDocsAreEmpty) {
  56.         new
  57.         return
  58.         }
  59.         set args ""
  60.     } else {
  61.         set args [list "-n" $args] 
  62.     }
  63.     }
  64.     set handler [set newDocument::handlers($newDocumentmodeVars(newDocumentHandler))]
  65.     if [catch {eval $handler $args}] {
  66.     if {[info commands $handler] == ""} {
  67.         alertnote "Your new document handler was poorly set.  I'll reset it."
  68.         # handler poortly set
  69.         global modifiedArrayElements
  70.         set newDocumentmodeVars(newDocumentHandler) Alpha
  71.         lappend modifiedArrayElements [list newDocumentHandler newDocumentmodeVars]
  72.         eval new $args
  73.     } else {
  74.         alertnote "Your new document handler '$handler' caused an error."
  75.     }
  76.     }
  77.     return ""
  78. }
  79.  
  80.  
  81.  
  82.